home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0195.lzh / AMOSLIST / text0087.txt < prev    next >
Encoding:
Text File  |  1995-02-01  |  2.5 KB  |  105 lines
  1.  
  2. On Wed, 11 Jan 1995 clayton@pms505.pms.ford.com wrote:
  3.  
  4. [...]
  5. > 
  6. >   Is there a patch/extension (or whatever) which allows the reading of a mouse
  7. >   from the other port?  Perhaps a call like USE_MOUSE_PORT(1) to 
  8. >   set up the condition, and a call like USE_MOUSE_PORT(0) to set the system
  9. >   back to default.  
  10. > 
  11.     I think there might be but I am not too sure.. 
  12.  
  13. >   I am not asking for both mice to be read simultaneously
  14. >   (although that capability would be very nice for other applications), 
  15. >   just the ability to read EITHER mouse 0 or mouse 1.  
  16. > 
  17. >   DOES THAT FUNCTIONALITY EXIST in AMOS?  
  18.  
  19.     No...
  20.  
  21. > Or is it a major oversight??
  22.  
  23.     Most of Amos is...
  24.  
  25. >   It would make many programs much nicer.  And the AMIGA hardware supports it.
  26. > 
  27.     
  28.     Here is some C code to do it... you can convert to Amos if you like..
  29.  
  30. #include <intuition/intuition.h>
  31. #include <clib/exec_protos.h>  /* Wait() Message stuuf */
  32. #include <clib/dos_protos.h>
  33.  
  34. #include <exec/types.h>
  35. #include <hardware/custom.h>
  36. #include <hardware/cia.h>
  37.  
  38. #include "screen.h"  /* needed for M_GetCurrWindow() */
  39. #include "input.h"
  40.  
  41. /* This will automatically be linked to the Custom structure: */
  42. extern struct Custom far custom;
  43.  
  44. /* This will automatically be linked to the CIA A (8520) chip: */
  45. extern struct CIA far ciaa;
  46.  
  47.  
  48.  
  49. UBYTE M_GetMousePort(UBYTE port)
  50. {
  51.   UBYTE data = 0;
  52.   UWORD joy, pot;
  53.  
  54.   custom.potgo = 0xFF00;
  55.   pot = custom.potinp;
  56.  
  57.   if( port == 1 )
  58.   {
  59.     /* PORT 1 "MOUSE PORT" */
  60.     joy = custom.joy0dat;
  61.     data += !( ciaa.ciapra & 0x0040 ) ? LEFT_BUTTON : 0;
  62.     data += !( pot & 0x0100 ) ? MIDDLE_BUTTON : 0;
  63.     data += !( pot & 0x0400 ) ? RIGHT_BUTTON : 0;
  64.   }
  65.   else
  66.   {
  67.     /* PORT 2 "JOYSTICK PORT" */ 
  68.     joy = custom.joy1dat;
  69.     data += !( ciaa.ciapra & 0x0080 ) ? LEFT_BUTTON : 0;
  70.     data += !( pot & 0x1000 ) ? MIDDLE_BUTTON : 0;
  71.     data += !( pot & 0x4000 ) ? RIGHT_BUTTON : 0;
  72.   }
  73.   return( data );
  74. }
  75.  
  76. /* Here are some Defines To Help Use these Function */
  77.     #define LEFT_BUTTON   1
  78.     #define MIDDLE_BUTTON 2
  79.     #define RIGHT_BUTTON  4
  80.     #define M_LMB2_Pressed()      ((M_GetMousePort(PORT2))&LEFT_BUTTON)
  81.     #define M_RMB2_Pressed()      ((M_GetMousePort(PORT2))&RIGHT_BUTTON)
  82.     #define M_MMB2_Pressed()      ((M_GetMousePort(PORT2))&MIDDLE_BUTTON)
  83.  
  84.  
  85.  
  86.     I hope this helps...
  87.  
  88.  
  89.                             mike
  90.  
  91.  
  92.  
  93. >   Thanks.
  94. > 
  95. >  +-----------------------------+
  96. >  | clayton@pms505.pms.ford.com |
  97. >  |    // an AMIGA programmer!  |
  98. >  |   // (the only intelligent  |
  99. >  | \X/   choice)   -- PEACE -- |
  100. >  +-----------------------------+
  101. > 
  102. > 
  103. > 
  104.  
  105.